home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / utility / horst_2.zip / H4.BAT < prev    next >
DOS Batch File  |  1995-12-18  |  2KB  |  62 lines
  1. @echo off
  2. :AGAIN
  3. cls
  4. echo ┌───────────────────────────────────┐
  5. echo │     H-P LASERJET 4 Ser. (PCL5)    │
  6. echo │                                   │
  7. echo │ » 1 - Reset Printer               │
  8. echo │ » 2 - Form Feed                   │
  9. echo │ » 3 - Elite 12.0 cpi              │
  10. echo │ » 4 - Univers Medium 9 / 8        │
  11. echo │ » 5 - Univers Bold 16             │
  12. echo │ » 6 - Courier land. 10            │
  13. echo │ » 7 - Compressed 16.6             │
  14. echo │ » 8 - Spreadsheet (landscape)     │
  15. echo │ » 9 - Comp/A4/85LP/LM10/Portr     │
  16. echo │ » A - Courier/line drawing chars. │
  17. echo │                                   │
  18. echo │     ESC Escape                    │
  19. echo └───────────────────────────────────┘
  20. pmenue /E99
  21. for %%a in (0 1 2 3 4 5 6 7 8 10 99 255) do if errorlevel %%a set ?=%%a
  22. goto L-%?%
  23. :L-1
  24. qecho ESC,"E" > prn
  25. goto AGAIN
  26. :L-2
  27. qecho FF > prn
  28. goto AGAIN
  29. :L-3
  30. qecho ESC,"&k4S" > prn
  31. goto AGAIN
  32. :L-4
  33. qecho ESC,"(8U",ESC,"(s1p9.0v0s0b4148T",ESC,"c&l8D" > prn
  34. goto AGAIN
  35. :L-5
  36. qecho ESC,"(8U",ESC,"(s1p16.0v0s3b4148T" > prn
  37. goto AGAIN
  38. :L-6
  39. qecho ESC,"&l1O",ESC,"8",ESC,"(s0pLF.0h0s0b4099t" > prn
  40. goto AGAIN
  41. :L-7
  42. qecho ESC,"&k2S" > prn
  43. goto AGAIN
  44. :L-8
  45. qecho ESC,"&l1o2e5.647c66F",ESC,"&k2S" > prn
  46. goto AGAIN
  47. :L-9
  48. qecho ESC,"&l26A",ESC,"&l85P",ESC,"&a10L",ESC,"(8U",ESC,"(s0p12h0s0b4099T",ESC,"&l8D" > prn
  49. goto AGAIN
  50. :L-10
  51. qecho ESC,"(10U",ESC,"(s0p10h0s0b4099T" > prn
  52. goto AGAIN
  53. :L-99
  54. goto END
  55. :L-255
  56. echo Error: PMENUE can not find a valid menu on screen
  57. pause
  58. :END
  59. set ?=
  60. cls
  61. exit
  62.